home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / iz_fl_15.zip / FLIST.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-21  |  3KB  |  226 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     String   STRING001
  30.     String   STRING002
  31.     String   STRING003
  32.     String   STRING004
  33.     String   STRING005
  34.     String   STRING006
  35.     String   STRING007
  36.     String   STRING008
  37.     String   STRING009
  38.     String   STRING010
  39.     String   STRING011
  40.     String   TSTRING012(5)
  41.     String   STRING013
  42.     String   STRING014
  43.     String   STRING015
  44.     String   STRING016
  45.     String   STRING017
  46.     String   TSTRING018(50)
  47.     String   STRING019
  48.  
  49. ;------------------------------------------------------------------------------
  50.  
  51.     STRING017 = "v1.50"
  52.     INTEGER002 = Date()
  53.     STRING001 = Date()
  54.     GetToken STRING002
  55.     GetToken STRING003
  56.     GetToken STRING004
  57.     INTEGER010 = 1
  58.     STRING019 = ""
  59.     GetToken TSTRING018(INTEGER010)
  60.     While (TSTRING018(INTEGER010) <> "") Do
  61.         If (INTEGER010 > 1) TSTRING018(INTEGER010) = ";" + TSTRING018(INTEGER010)
  62.         STRING019 = STRING019 + TSTRING018(INTEGER010)
  63.         Inc INTEGER010
  64.         GetToken TSTRING018(INTEGER010)
  65.     EndWhile
  66.     STRING005 = STRING002
  67.     STRING006 = STRING003
  68.     STRING007 = STRING004
  69.     INTEGER003 = INTEGER002 - STRING002
  70.     STRING008 = ToDate(INTEGER003)
  71.     STRING009 = Left(STRING008, 2) + Mid(STRING008, 4, 2) + Right(STRING008, 2)
  72.     FOpen 1, PPEPath() + "FLIST.CFG", 0, 2
  73.     FGet 1, STRING010
  74.     FGet 1, INTEGER004
  75.     FGet 1, STRING011
  76.     FGet 1, TSTRING012(1)
  77.     FGet 1, TSTRING012(2)
  78.     FGet 1, TSTRING012(3)
  79.     FGet 1, TSTRING012(4)
  80.     FGet 1, TSTRING012(5)
  81.     STRING010 = RTrim(STRING010, " ")
  82.     INTEGER004 = RTrim(INTEGER004, " ")
  83.     FClose 1
  84.     ShowOff
  85.     KbdStuff Chr(13)
  86.     Cls
  87.     GetUser
  88.     U_Sec = SysopSec()
  89.     ConfFlag STRING003, 1
  90.     Join STRING003
  91.     Goto LABEL002
  92.     :LABEL001
  93.     Newline
  94.     Newline
  95.     PrintLn "@X0E  FList is hard at work....."
  96.     Newline
  97.     ShowOff
  98.     OpenCap STRING007, BOOLEAN001
  99.     If (STRING011 == "YES-YES") DispFile PPEPath() + "HEADR", 2 + 4
  100.     If (STRING011 == "YES-NO") DispFile PPEPath() + "HEADR", 2 + 4
  101.     If (!(TSTRING012(1) == "")) PrintLn TSTRING012(1)
  102.     If (!(TSTRING012(2) == "")) PrintLn TSTRING012(2)
  103.     If (!(TSTRING012(3) == "")) PrintLn TSTRING012(3)
  104.     If (!(TSTRING012(4) == "")) PrintLn TSTRING012(4)
  105.     If (!(TSTRING012(5) == "")) PrintLn TSTRING012(5)
  106.     If (STRING013 == "N") PrintLn "             FList ", STRING017, " (c)1995-1996 ■ By: Tim Miller  [UNREGISTERED]"
  107.     KbdStuff Chr(13)
  108.     ShowOff
  109.     PutUser
  110.     Dir "N;" + STRING019 + ";" + STRING009 + ";NS"
  111.     If (STRING011 == "YES-YES") DispFile PPEPath() + "FOOTR", 2 + 4
  112.     If (STRING011 == "NO-YES") DispFile PPEPath() + "FOOTR", 2 + 4
  113.     Newline
  114.     If (STRING013 == "N") PrintLn "            FList ", STRING017, " (c)1995-1996 ■ By: Tim Miller  [UNREGISTERED]"
  115.     CloseCap 
  116.     ShowOn
  117.     Cls
  118.     Newlines 3
  119.     PrintLn "                @X0E  ┌────────────────────────────────────────────────┐"
  120.     PrintLn "@X0E                @X0E  │   Conference scanned : " + STRING003 + "@POS:67@ │"
  121.     PrintLn "@X0E                @X0E  │   Directories Scanned: " + STRING019 + "@POS:67@ │"
  122.     PrintLn "@X0E                @X0E  │   # of days included : " + STRING002 + "@POS:67@ │"
  123.     PrintLn "                @X0E  └────────────────────────────────────────────────┘"
  124.     PrintLn "                          @X0FThank you for using FList " + STRING017
  125.     Newlines 2
  126.     Delay 60
  127.     End
  128.     :LABEL002
  129.     STRING013 = "N"
  130.     STRING014 = Left(STRING010, 1)
  131.     STRING015 = Right(STRING010, 1)
  132.     STRING016 = Mid(STRING010, 5, 1)
  133.     INTEGER005 = Asc(STRING014)
  134.     INTEGER006 = Asc(STRING015)
  135.     INTEGER007 = Asc(STRING016)
  136.     INTEGER009 = 133
  137.     INTEGER008 = (Asc(STRING014) * Asc(STRING015)) * Asc(STRING016) - INTEGER009
  138.     If (INTEGER004 == INTEGER008) STRING013 = "Y"
  139.     Goto LABEL001
  140.  
  141. ;------------------------------------------------------------------------------
  142. ;
  143. ; Usage report (before postprocessing)
  144. ;
  145. ; ■ Statements used :
  146. ;
  147. ;    1       End
  148. ;    2       Cls
  149. ;    5       Goto 
  150. ;    26      Let 
  151. ;    14      PrintLn 
  152. ;    14      If 
  153. ;    1       ConfFlag 
  154. ;    4       DispFile 
  155. ;    1       FOpen 
  156. ;    1       FClose 
  157. ;    8       FGet 
  158. ;    1       GetUser
  159. ;    1       PutUser
  160. ;    1       Delay 
  161. ;    1       Inc 
  162. ;    4       Newline
  163. ;    2       Newlines 
  164. ;    5       GetToken 
  165. ;    2       KbdStuff 
  166. ;    1       Join 
  167. ;    1       Dir 
  168. ;    1       OpenCap 
  169. ;    1       CloseCap 
  170. ;    1       ShowOn
  171. ;    3       ShowOff
  172. ;
  173. ;
  174. ; ■ Functions used :
  175. ;
  176. ;    2       *
  177. ;    24      +
  178. ;    2       -
  179. ;    12      ==
  180. ;    1       <>
  181. ;    1       >
  182. ;    6       !
  183. ;    2       Mid()
  184. ;    2       Left()
  185. ;    2       Right()
  186. ;    2       Chr()
  187. ;    6       Asc()
  188. ;    2       RTrim()
  189. ;    2       Date()
  190. ;    5       PPEPath()
  191. ;    1       SysopSec()
  192. ;    1       ToDate()
  193. ;
  194. ;------------------------------------------------------------------------------
  195. ;
  196. ; Analysis flags : FWs
  197. ;
  198. ; F - Change conference flags status ■ 2
  199. ;     This may be normal for a SELECT replacement but it may also be
  200. ;     a way to get access to conferences a user is not allowed to.
  201. ;     ■ Search for : CONFFLAG, CONFUNFLAG
  202. ;
  203. ; W - Write user ■ 5
  204. ;     Program writes a user record. Although this may be normal for a
  205. ;     User Editor, it may also be a way to modify an account level.
  206. ;     ■ Search for : PUTUSER
  207. ;
  208. ; s - Sysop level access ■ 5
  209. ;     Program is reading the sysop access level, this may be normal
  210. ;     but still it is very suspect. It is the best way to give a user
  211. ;     all priviledges. Check!
  212. ;     ■ Search for : SYSOPSEC()
  213. ;
  214. ;------------------------------------------------------------------------------
  215. ;
  216. ; Postprocessing report
  217. ;
  218. ;    0       For/Next
  219. ;    1       While/EndWhile
  220. ;    0       If/Then or If/Then/Else
  221. ;    0       Select Case
  222. ;
  223. ;------------------------------------------------------------------------------
  224. ;                 AEGiS Corp - Break the routines, code against the machines!
  225. ;------------------------------------------------------------------------------
  226.